home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / fmodla13.zip / STRINGS.DEF < prev    next >
Text File  |  1992-01-29  |  1KB  |  63 lines
  1. DEFINITION MODULE Strings;
  2.  
  3. (* (C) Copyright 1987 Fitted Software Tools. All rights reserved. *)
  4.  
  5. (*
  6.     A strings is an ARRAY OF CHAR.
  7.     If the string does not completely fill the array, it is terminated
  8.     by a 0C.
  9. *)
  10.  
  11. PROCEDURE CompareStr( s1, s2 :ARRAY OF CHAR ) :INTEGER;
  12. (*
  13.     Returns:
  14.         0 if s1 = s2
  15.        -1 if s1 < s2
  16.        +1 if s1 > s2
  17. *)
  18.  
  19. PROCEDURE Assign( VAR source, dest :ARRAY OF CHAR );
  20. (*
  21.     copies source to dest
  22. *)
  23.  
  24. PROCEDURE Length( s :ARRAY OF CHAR ) :CARDINAL;
  25. (*
  26.     returns the length of s
  27. *)
  28.  
  29. PROCEDURE Concat( s1, s2 :ARRAY OF CHAR; VAR result :ARRAY OF CHAR );
  30. (*
  31.     Concatenates s2 to s1 and places the resulting string in result
  32. *)
  33.  
  34. PROCEDURE Pos( subs, s :ARRAY OF CHAR ) :CARDINAL;
  35. (*
  36.     Returns:
  37.         index of first occurrence of subs in s or
  38.         > HIGH(s) if no match is found
  39. *)
  40.  
  41. PROCEDURE Append( VAR s1 :ARRAY OF CHAR; s2 :ARRAY OF CHAR );
  42. (*
  43.     appends s2 at the end of s1.
  44.     equivalent to Concat( s1, s2, s1 ), but more obvious and efficient.
  45. *)
  46.  
  47. PROCEDURE Insert( subs :ARRAY OF CHAR; VAR s :ARRAY OF CHAR; at :CARDINAL );
  48. (*
  49.     inserts subs into s at position at.
  50. *)
  51.  
  52. PROCEDURE Delete( VAR s :ARRAY OF CHAR; pos, len :CARDINAL );
  53. (*
  54.     delete len chars from s starting at position pos
  55. *)
  56.  
  57. PROCEDURE Copy( src :ARRAY OF CHAR; pos, len :CARDINAL;
  58.                 VAR dest :ARRAY OF CHAR );
  59. (*
  60.     copy len characters starting at pos from src to dest
  61. *)
  62.  
  63. END Strings.